home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaf.d64 / proc.copyscreen < prev    next >
Text File  |  2007-02-28  |  740b  |  27 lines
  1. 0010 ╨╥╧├ COPYSCREEN ├╠╧╙┼─
  2. 0020   ╒╙┼ GRAPHICS
  3. 0030   ╒╙┼ FONT
  4. 0040   ─╔═ RASTER$ ╧╞ 8
  5. 0050   ─╔═ XRASTER$ ╧╞ 8
  6. 0060   SET:=╨┼┼╦($D018)
  7. 0070   ╔╞ SET=23 ╘╚┼╬ CHARSET:=3
  8. 0080   ╔╞ SET=21 ╘╚┼╬ CHARSET:=2
  9. 0090   ╔╞ SET=191 ╘╚┼╬ CHARSET:=1
  10. 0100   ╔╞ SET=189 ╘╚┼╬ CHARSET:=0
  11. 0110   GRAPHICSCREEN(0)
  12. 0120   BACKGROUND(0)
  13. 0130   PENCOLOR(1)
  14. 0140   CLEARSCREEN
  15. 0150   SCREEN:=╨┼┼╦(648)*256
  16. 0160   ╞╧╥ ROW:=0 ╘╧ 24 ─╧
  17. 0170     ╞╧╥ COL:=0 ╘╧ 39 ─╧
  18. 0180       CHAR:=╨┼┼╦(SCREEN+ROW*40+COL)
  19. 0190       GETCHARACTER(CHARSET,CHAR,RASTER$)
  20. 0200       ╞╧╥ LINES:=1 ╘╧ 8 ─╧
  21. 0210         LOCATION:=$DFFF+LINES+ROW*320+COL*8
  22. 0220         ╨╧╦┼ LOCATION,╧╥─(RASTER$(LINES))
  23. 0230       ┼╬─╞╧╥ LINES
  24. 0240     ┼╬─╞╧╥ COL
  25. 0250   ┼╬─╞╧╥ ROW
  26. 0260 ┼╬─╨╥╧├ COPYSCREEN
  27.